home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / insertframes.clssa < prev    next >
Encoding:
Text File  |  1995-01-20  |  886 b   |  35 lines
  1. /***********************************************************************
  2.   GADGET: "'Insert'" "5" AUTO TYP: "?"
  3.  
  4.   $DAT >>InsertFrames.clssa<< 04.10.1992 - (C) ProDAD Holger Burkarth
  5.                               18.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.  
  15.   DO FOREVER
  16.     GetAnimInfo
  17.     IF RESULT="" THEN Message "'Keine Animation vorhanden.'"
  18.     ELSE DO
  19.       PARSE VAR RESULT . "POS" pos .
  20.       INTRequest "'*** Insert ***'",
  21.                  "''",
  22.                  "'Geben Sie die Anzahl der einzu-'",
  23.                  "'fügenden identischen Frames ein.'",
  24.                  "'<< Aktuelle Position: "pos" >>'" 1
  25.       IF RC~=0 THEN LEAVE
  26.       Anz=RESULT
  27.       IF Anz>0 THEN Record INSERT Anz
  28.     END
  29.     LEAVE
  30.   END
  31.  
  32.  
  33.   FailAt AltFail
  34. exit
  35.